home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.11 Nov 88 / Forth Source stuff / isotest next >
Encoding:
Text File  |  1988-07-26  |  928 b   |  37 lines  |  [TEXT/4PSU]
  1. /Garamond-Light findfont dup length dict /newdict exch def
  2. {1 index /FID ne
  3. { newdict 3 1 roll put }
  4. { pop pop }
  5. ifelse 
  6. } forall
  7. /Encoding 256 array def 
  8. Encoding 0 /Garamond-Light findfont
  9. /Encoding get 0 256 getinterval putinterval
  10. Encoding 127 /DEL put
  11. Encoding 129 /lslash put
  12. Encoding 130 /Lslash put
  13. Encoding 131 /eth put
  14. Encoding 132 /Eth put
  15. Encoding 133 /thorn put
  16. Encoding 134 /Thorn put
  17. Encoding 135 /onehalf put
  18. Encoding 136 /onequarter put
  19. Encoding 137 /threequarters put
  20. Encoding 138 /brokenbar put
  21. Encoding 139 /onesuperior put
  22. Encoding 140 /twosuperior put
  23. Encoding 141 /threesuperior put
  24. Encoding 142 /scaron put
  25. Encoding 143 /Scaron put
  26. Encoding 144 /zcaron put
  27. Encoding 145 /Zcaron put
  28. Encoding 146 /yacute put
  29. Encoding 147 /Yacute put
  30. newdict /Encoding Encoding put
  31. /IsoGaramond newdict definefont pop
  32. /IsoGaramond findfont 18 scalefont setfont
  33. 75 250 moveto (
  34. ÄÅÇÉÑÖÜáàâäãåçéèêëíì Garamond
  35. ) show
  36. showpage
  37.